BrICC Quiz

Column

Quiz Score Table Breakdown

Quiz Score Plot Breakdown

BrICC Survey

Column

Question 1

I am confident in my ability to conduct a consultation for the BrICC clinic

Question 2

I am confident in my ability to administer standardized cognitive tests

Question 3

I am confident in my ability to conduct a client-centered clinical interview

Question 4

I am confident in my ability to identify treatment options to assist people with acquired cognitive impairments

Question 5

I am prepared to write cognitive rehabilitation goals

Question 6

I am prepared to administer direct interventions such as attention training or goal management training

Question 7

I am prepared to engage in systematic instruction to support the use of external aids

Question 8

I am prepared to engage in a needs assessment to identify cognitive strategies and support learning and use of them

Question 9

I am confident in my ability to collect and analyze client session data

Question 10

I am prepared to justify my decisions related to assessment and treatment selection

Question 11

I am confident in my ability to apply principles of evidence-based practice to my assessment and treatment decisions

Question 12

I am confident in my ability to make ‘online’ (in session) changes to my daily plans

Question 13

I am knowledgeable about concussion management

Question 14

I am comfortable working with clients with brain injuries

Question 15

I am comfortable working with clients with awareness deficits

Question 16

I am able to use case history information (e.g., information about etiology) to guide my clinical decision making

Question 17

I feel prepared to orally present cases

Question 18

Training was systematic and well organized (Post-Survey Only)

Question 19

Group meetings enhanced my learning (Post-Survey Only)

Question 20

Group meetings were efficient (Post-Survey Only)

Question 21

Group meetings exposed me to learning about other client profiles and case management techniques (Post-Survey Only)

Question 22

I learned enough about treatment approaches implemented by my peers to be able to implement them with a client even though I never personally delivered the intervention (Post-Survey Only)

Question 23

I was exposed to clients with the same disorder/diagnosis with different manifestations or treatment needs (Post-Survey Only)

Question 24

My supervisor supported my case management and clinical approach (Post-Survey Only)

Question 25

(If you have already taken cognitive rehabilitation course) Because of this clinical experience, I am now able to apply theoretical knowledge and principles in a clinically sound matter (Post-Survey Only)

Question 26

(If you have already taken cognitive rehabilitation course) I had the appropriate knowledge of theories and practice from my coursework to apply to this clinical experience (Post-Survey Only)

Question 27

(If you have not yet taken cognitive rehabilitation course) I feel more prepared about enrolling in class because of this clinical experience (Post-Survey Only)

---
title: "BrICC Winter 2020 Student Data"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
    vertical_layout: scroll
    theme: cerulean
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(rio)
library(here)
library(colorblindr)
library(gghighlight)
library(forcats)
library(ggrepel)
library(gt)
library(knitr)
library(kableExtra)
library(reactable)
library(plotly)

opts_chunk$set(echo = FALSE,
               fig.width = 5,
               fig.height = 6)

theme_set(theme_minimal(base_size = 8))

bricc <- import(here("data", "bricc_data_new.sav"),
               setclass = "tbl_df") %>% 
  characterize() %>% 
  janitor::clean_names() 

head(bricc)
```

# BrICC Quiz 


Column {.tabset data-width=650}
-----------------------------------------------------------------------

### Quiz Score Table Breakdown 
```{r total score data cleaning, include=FALSE}

score_table <- bricc %>% 
  select(student_name, 
         pre_test_total_score, 
         post_test_total_score, 
         pre_test_knowledge_score, 
         post_test_knowledge_score, 
         pre_test_application_score, 
         post_test_application_score) %>% 
  rename("Student Name" = student_name,
         "Pre-Test Total Score" = pre_test_total_score,
         "Post-Test Total Score" = post_test_total_score,
         "Pre-Test Knowledge Score" = pre_test_knowledge_score,
         "Post-Test Knowledge Score" = post_test_knowledge_score,
         "Pre-Test Application Score" = pre_test_application_score,
         "Post-Test Application Score" = post_test_application_score)

bricc_tidy_quiz <- bricc %>% 
  pivot_longer(
    cols = c(pre_test_total_score,
             post_test_total_score,
             pre_test_knowledge_score,
             post_test_knowledge_score,
             pre_test_application_score,
             post_test_application_score),
    names_to = "assessment",
    values_to = "score"
  )

```

```{r total score}

reactable(score_table)
```

### Quiz Score Plot Breakdown
```{r quiz plot data cleaning, include=FALSE}

bricc_tidy_quiz$assessment <- factor(bricc_tidy_quiz$assessment, 
                                     levels = c("pre_test_total_score",
                                                "post_test_total_score",
                                                "pre_test_knowledge_score",
                                                "post_test_knowledge_score",
                                                "pre_test_application_score",
                                                "post_test_application_score"))

```

```{r quiz plot, fig.width=7, fig.height=6.5}
ggplot(bricc_tidy_quiz, aes(assessment, score)) +
  geom_col(fill = "blue", 
           alpha = 0.7) +
  geom_text(aes(assessment, score, label = score),
            nudge_y = -0.5,
            color = "white") +
  facet_wrap(~student_name) +
  theme(panel.grid.major.y = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.major.x = element_line(color = "gray80")) +
  theme(axis.text.x = element_text(angle = 90)) +
  theme(plot.title = element_text(color = "black", size = 12, face = "bold", hjust = 0.5)) +
  labs(x = "",
       y = "Score",
       title = "BrICC Winter 2020 Student Scores") 
```


# BrICC Survey 

Column {.tabset data-width=650}
-----------------------------------------------------------------------

### Question 1

I am confident in my ability to conduct a consultation for the BrICC clinic

```{r survey question 1 data cleaning, include=FALSE}

pre_post_q1 <- bricc %>% 
  select(student_name, pre_survey_q1, post_survey_q1) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q1,
         "Post-Survey Response" = post_survey_q1)

```

```{r question 1}

reactable(pre_post_q1)
```


### Question 2

I am confident in my ability to administer standardized cognitive tests

```{r survey question 2 data cleaning, include=FALSE}

pre_post_q2 <- bricc %>% 
  select(student_name, pre_survey_q2, post_survey_q2) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q2,
         "Post-Survey Response" = post_survey_q2)

```

```{r question 2}

reactable(pre_post_q2)
```


### Question 3

I am confident in my ability to conduct a client-centered clinical interview

```{r survey question 3 data cleaning, include=FALSE}

pre_post_q3 <- bricc %>% 
  select(student_name, pre_survey_q3, post_survey_q3) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q3,
         "Post-Survey Response" = post_survey_q3)

```

```{r question 3}

reactable(pre_post_q3)
```

### Question 4

I am confident in my ability to identify treatment options to assist people with acquired cognitive impairments

```{r survey question 4 data cleaning, include=FALSE}

pre_post_q4 <- bricc %>% 
  select(student_name, pre_survey_q4, post_survey_q4) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q4,
         "Post-Survey Response" = post_survey_q4)

```

```{r question 4}

reactable(pre_post_q4)
```

### Question 5

I am prepared to write cognitive rehabilitation goals

```{r survey question 5 data cleaning, include=FALSE}

pre_post_q5 <- bricc %>% 
  select(student_name, pre_survey_q5, post_survey_q5) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q5,
         "Post-Survey Response" = post_survey_q5)

```

```{r question 5}

reactable(pre_post_q5)
```

### Question 6

I am prepared to administer direct interventions such as attention training or goal management training
```{r survey question 6 data cleaning, include=FALSE}

pre_post_q6 <- bricc %>% 
  select(student_name, pre_survey_q6, post_survey_q6) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q6,
         "Post-Survey Response" = post_survey_q6)

```

```{r question 6}

reactable(pre_post_q6)
```

### Question 7

I am prepared to engage in systematic instruction to support the use of external aids
```{r survey question 7 data cleaning, include=FALSE}

pre_post_q7 <- bricc %>% 
  select(student_name, pre_survey_q7, post_survey_q7) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q7,
         "Post-Survey Response" = post_survey_q7)

```

```{r question 7}

reactable(pre_post_q7)
```

### Question 8

I am prepared to engage in a needs assessment to identify cognitive strategies and support learning and use of them
```{r survey question 8 data cleaning, include=FALSE}

pre_post_q8 <- bricc %>% 
  select(student_name, pre_survey_q8, post_survey_q8) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q8,
         "Post-Survey Response" = post_survey_q8)

```

```{r question 8}

reactable(pre_post_q8)
```

### Question 9

I am confident in my ability to collect and analyze client session data
```{r survey question 9 data cleaning, include=FALSE}

pre_post_q9 <- bricc %>% 
  select(student_name, pre_survey_q9, post_survey_q9) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q9,
         "Post-Survey Response" = post_survey_q9)
```

```{r question 9}

reactable(pre_post_q9)
```

### Question 10

I am prepared to justify my decisions related to assessment and treatment selection
```{r survey question 10 data cleaning, include=FALSE}

pre_post_q10 <- bricc %>% 
  select(student_name, pre_survey_q10, post_survey_q10) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q10,
         "Post-Survey Response" = post_survey_q10)

```

```{r question 10}

reactable(pre_post_q10)
```

### Question 11

I am confident in my ability to apply principles of evidence-based practice to my assessment and treatment decisions
```{r survey question 11 data cleaning, include=FALSE}

pre_post_q11 <- bricc %>% 
  select(student_name, pre_survey_q11, post_survey_q11) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q11,
         "Post-Survey Response" = post_survey_q11)

```

```{r question 11}

reactable(pre_post_q11)
```


### Question 12

I am confident in my ability to make ‘online’ (in session) changes to my daily plans
```{r survey question 12 data cleaning, include=FALSE}

pre_post_q12 <- bricc %>% 
  select(student_name, pre_survey_q12, post_survey_q12) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q12,
         "Post-Survey Response" = post_survey_q12)

```

```{r question 12}

reactable(pre_post_q12)
```


### Question 13

I am knowledgeable about concussion management
```{r survey question 13 data cleaning, include=FALSE}

pre_post_q13 <- bricc %>% 
  select(student_name, pre_survey_q13, post_survey_q13) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q13,
         "Post-Survey Response" = post_survey_q13)

```

```{r question 13}

reactable(pre_post_q13)
```

### Question 14

I am comfortable working with clients with brain injuries
```{r survey question 14 data cleaning, include=FALSE}

pre_post_q14 <- bricc %>% 
  select(student_name, pre_survey_q14, post_survey_q14) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q14,
         "Post-Survey Response" = post_survey_q14)

```

```{r question 14}

reactable(pre_post_q14)
```

### Question 15

I am comfortable working with clients with awareness deficits
```{r survey question 15 data cleaning, include=FALSE}

pre_post_q15 <- bricc %>% 
  select(student_name, pre_survey_q15, post_survey_q15) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q15,
         "Post-Survey Response" = post_survey_q15)

```

```{r question 15}

reactable(pre_post_q15)
```

### Question 16

I am able to use case history information (e.g., information about etiology) to guide my clinical decision making
```{r survey question 16 data cleaning, include=FALSE}

pre_post_q16 <- bricc %>% 
  select(student_name, pre_survey_q16, post_survey_q16) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q16,
         "Post-Survey Response" = post_survey_q16)

```

```{r question 16}

reactable(pre_post_q16)
```

### Question 17

I feel prepared to orally present cases
```{r survey question 17 data cleaning, include=FALSE}

pre_post_q17 <- bricc %>% 
  select(student_name, pre_survey_q17, post_survey_q17) %>% 
  rename("Student Name" = student_name,
         "Pre-Survey Response" = pre_survey_q17,
         "Post-Survey Response" = post_survey_q17)

```

```{r question 17}

reactable(pre_post_q17)
```


### Question 18

Training was systematic and well organized (Post-Survey Only)
```{r survey question 18 data cleaning, include=FALSE}

pre_post_q18 <- bricc %>% 
  select(student_name, post_survey_q18) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q18)

```

```{r question 18}

reactable(pre_post_q18)
```

### Question 19

Group meetings enhanced my learning (Post-Survey Only)
```{r survey question 19 data cleaning, include=FALSE}

pre_post_q19 <- bricc %>% 
  select(student_name, post_survey_q19) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q19)

```

```{r question 19}

reactable(pre_post_q19)
```


### Question 20

Group meetings were efficient (Post-Survey Only)
```{r survey question 20 data cleaning, include=FALSE}

pre_post_q20 <- bricc %>% 
  select(student_name, post_survey_q20) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q20)

```

```{r question 20}

reactable(pre_post_q20)
```


### Question 21

Group meetings exposed me to learning about other client profiles and case management techniques (Post-Survey Only)
```{r survey question 21 data cleaning, include=FALSE}

pre_post_q21 <- bricc %>% 
  select(student_name, post_survey_q21) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q21)

```

```{r question 21}

reactable(pre_post_q21)
```


### Question 22

I learned enough about treatment approaches implemented by my peers to be able to implement them with a client even though I never personally delivered the intervention (Post-Survey Only)
```{r survey question 22 data cleaning, include=FALSE}

pre_post_q22 <- bricc %>% 
  select(student_name, post_survey_q22) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q22)

```

```{r question 22}

reactable(pre_post_q22)
```


### Question 23

I was exposed to clients with the same disorder/diagnosis with different manifestations or treatment needs (Post-Survey Only)
```{r survey question 23 data cleaning, include=FALSE}

pre_post_q23 <- bricc %>% 
  select(student_name, post_survey_q23) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q23)

```

```{r question 23}

reactable(pre_post_q23)
```

### Question 24

My supervisor supported my case management and clinical approach (Post-Survey Only)
```{r survey question 24 data cleaning, include=FALSE}

pre_post_q24 <- bricc %>% 
  select(student_name, post_survey_q24) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q24)

```

```{r question 24}

reactable(pre_post_q24)
```


### Question 25

(If you have already taken cognitive rehabilitation course) Because of this clinical experience, I am now able to apply theoretical knowledge and principles in a clinically sound matter (Post-Survey Only)
```{r survey question 25 data cleaning, include=FALSE}

pre_post_q25 <- bricc %>% 
  select(student_name, post_survey_q25) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q25)

```

```{r question 25}

reactable(pre_post_q25)
```


### Question 26

(If you have already taken cognitive rehabilitation course) I had the appropriate knowledge of theories and practice from my coursework to apply to this clinical experience (Post-Survey Only)
```{r survey question 26 data cleaning, include=FALSE}

pre_post_q26 <- bricc %>% 
  select(student_name, post_survey_q26) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q26)

```

```{r question 26}

reactable(pre_post_q26)
```


### Question 27

(If you have not yet taken cognitive rehabilitation course) I feel more prepared about enrolling in class because of this clinical experience (Post-Survey Only)
```{r survey question 27 data cleaning, include=FALSE}

pre_post_q27 <- bricc %>% 
  select(student_name, post_survey_q27) %>% 
  rename("Student Name" = student_name,
         "Post-Survey Response" = post_survey_q27)

```

```{r question 27}

reactable(pre_post_q27)
```